(compilation-next-error): Add clarifying comment.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f02a77564196990cb39f78a69b740afc89144714..3bd77481daa1c5fabfdb8e00be3417e34871e8ac 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1626,6 +1626,7 @@ Does NOT find the source line like \\[next-error]."
       (error "Not in a compilation buffer"))
   (or pt (setq pt (point)))
   (let* ((msg (get-text-property pt 'message))
+         ;; `loc' is used by the compilation-loop macro.
         (loc (car msg))
         last)
     (if (zerop n)